home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SECURITY / MNGLR140 / TEST.OUT < prev    next >
Text File  |  1996-05-01  |  3KB  |  62 lines
  1. (* This file was mangled by Mangler 1.40 (c) Copyright 1993-1994 by Berend de Boer *)
  2. unit Test;
  3.  
  4. interface
  5.  
  6.  
  7. type
  8.   PParagraph = ^TParagraph;
  9.   TParagraph = record
  10.     Next: PParagraph;
  11.     Wrap: Boolean;
  12.     Size: Word;
  13.     Text: record end;
  14.   end;
  15.  
  16.   XAddress = record
  17.     case integer of
  18.       1: (offs : word;
  19.           page : word);
  20.       2: (l : longint);
  21.       3: (p : pointer);
  22.   end;
  23.  
  24. const
  25.   a = 100;
  26.  
  27. type
  28.   o = object
  29.     b : string;
  30.     Wrapped : (wrNone, wrEOF, wrBOF);
  31.     procedure fb(const a : string; a2 : string);
  32.   end;
  33.  
  34. var
  35.   b,bnog : word;
  36.   c : record
  37.     d : word;
  38.     e : string;
  39.   end;
  40.   s : string;
  41.  
  42. procedure fa;  far;
  43.  
  44.  
  45.  IMPLEMENTATION USES BBUTIL ;TYPE O10OlI1I1001l=RECORD CASE BOOLEAN  OF TRUE:(OO01:LONGINT);FALSE:(OO10:POINTER);END ;
  46. O10OIIOI1III0=PROCEDURE ;CONST OIOO=120 ;TYPE Ol0O00l=OBJECT OIO0:ARRAY [ 1 .. OIOO]  OF STRING ;PROCEDURE FA ;END ;
  47. PROCEDURE O10I0OO1 (OIO0:STRING );FORWARD;PROCEDURE O.FB (CONST A:STRING ;A2:STRING );LABEL 1 ;BEGIN WRITELN (A + B );
  48. GOTO 1 ;1 :A2 :='asd';END ;PROCEDURE Ol0O00l.FA ;VAR OOlIll0ll0lI:REAL;BEGIN WRITELN (OIO0 [ 4 ] );IF ABS (OOlIll0ll0lI
  49. )> 1.0E+37 THEN OOlIll0ll0lI :=1.000 ;END ;PROCEDURE FA ;VAR OIO1,Ol0IlO1:INTEGER;OIOI:RECORD OIOO:RECORD Ol01001:WORD;
  50. Ol100IO:CHAR;END ;OIOl:STRING ;END ;OIOl:STRING ;PROCEDURE O1OI0OlO0I0 ;VAR OIO1:WORD;BEGIN S :='Hai';OIOl :=S + STRW
  51. (OIOI.OIOO.Ol01001 );END ;BEGIN OIO1 :=A ;WITH OIOI,OIOO DO BEGIN Ol01001 :=OIO1 ;END ;FOR Ol0IlO1 :=0 TO A  DO BEGIN FA
  52. ;END ;END ;PROCEDURE O10I0OO1 (OIO0:STRING );VAR OO1I:RECORD OIO1:INTEGER;END ;O10lIlll:CHAR;BEGIN ASM {}
  53. MOV AX , WORD PTR OIO0[ 1 ] {} MOV BX , OO1I.OIO1{} MOV AL , CH {} MOV AL , &O10lIlll{} END;END ;PROCEDURE O10IIOlI
  54. (OIO0:STRING );ASSEMBLER;VAR OO1I:RECORD OIO1:INTEGER;END ;O10lIlll:CHAR;ASM {} MOV AX , WORD PTR OIO0[ 1 ] {}
  55. MOV BX , OO1I.OIO1{} MOV AL , CH {} MOV AL , &O10lIlll{} END;PROCEDURE O100I0O00OI (VAR OIlI1OlO00I;OIOO101OlII,
  56. OI1II1O1l0l0:WORD);BEGIN INLINE($C4 / $BE / OIlI1OlO00I / $8B / $8E / OIOO101OlII / $8B / $86 / OI1II1O1l0l0 / $FC / $F3
  57. / $AB );END ;PROCEDURE O1l01l1IO00O ;INLINE($FA );FUNCTION OlllO010OO (OOIO, OOIl:INTEGER):LONGINT ;INLINE($5A / $58 /
  58. $F7 / $EA );TYPE OO11O1O11l0=^OO11O1O11ll;OO11O1O11ll=RECORD OI110Ol101lI:TEXT;O101IOO1OO110:BOOLEAN;OOlIlOlII1l1:ARRAY [
  59. 1 .. 11 ]  OF BYTE;END ;FUNCTION OOIl0lO1IO00 :INTEGER ;FAR;CONST O10OOll1=#10;VAR OI11II10lI0I:STRING ;
  60. O10OOI0l111IO:OO11O1O11l0;O10l010OlIl11:INTEGER;BEGIN WITH O10OOI0l111IO^ DO BEGIN APPEND (OI110Ol101lI );END ;ASSIGN
  61. (O10OOI0l111IO ^.OI110Ol101lI ,'test');END ;END .
  62.